home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / comm2 / zpont311.lha / zpoint-3.11 / Rexx / Update.zprx < prev    next >
Text File  |  1995-03-09  |  1KB  |  36 lines
  1. /**********************************************************
  2.  * Update.zprx                                            *
  3.  *  $VER: V0.31 ©(1994) by WEBER@DEBUWI.gun.de (Dirk Weber)
  4.  * Beschreibung: Komfortabel über F-Taste updaten...      *
  5.  * Nur für die deutsche Version                           *
  6.  * Die Benutzung geschieht auf eigene Gefahr!             *
  7.  * Installationshinweis: in fkeys.zp einen Eintrag de-    *
  8.  * finieren der z.B. so aussehen kann:                    *
  9.  * F10:SYS:REXXC/RX ZP:SCRIPTS/update.zprx %s         *
  10.  **********************************************************/
  11.  
  12. parse arg zpPort
  13.  
  14. address value zpPort
  15. options results
  16.  
  17. /* Bitte Pfad des ZPoint-Verzeichnisses angeben! (Mit : oder / abschliessen) */
  18.  
  19. zpth='ZP:'
  20.  
  21. /* Ab hier nichts mehr verändern */
  22.  
  23. REQUESTRESPONSE 'Befinden sich die Markierung über dem richtigen ZP-Update-Patch-LhA-File ?'
  24. IF RC=1 THEN DO 
  25.         SAVEMESSAGE 'T:upda.zp'
  26.         address command 'C:delete 'zpth'zp.old'
  27.         address command 'C:delete 'zpth'liesmich.pch'
  28.         address command 'C:LHA x T:upda.zp 'zpth
  29.         address command 'c:execute 'zpth'liesmich.pch'
  30.         address command 'c:delete t:upda.zp'
  31.         address command 'c:delete 'zpth'zp_#?'
  32.         REQUESTNOTIFY 'Die neue version ist nun installiert. Starten Sie ZP neu um diese zu nutzen.'
  33.      EXIT
  34. END
  35. EXIT
  36.